home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / hc 1520 farbig (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  111 lines
  1. 10 rem maschinensprachehardcopyroutine
  2. 20 rem            1520/c64
  3. 30 rem         (c)  13.6.1984
  4. 40 rem               bei
  5. 50 rem         klaus schneider
  6. 60 rem          bahnhofstr. 5
  7. 70 rem           493 detmold
  8. 80 rem
  9. 90 rem *********** eingabe ************
  10. 100 rem
  11. 110 print chr$(147)
  12. 120 print " soll die kopie mehrfarbig werden (j/n)"
  13. 130 get a$ : if a$="" then 130
  14. 140 ifa$="j"thenpoke1000,1:print" ja":g=3
  15. 150 ifa$="n"thenpoke1000,0:print" nein":g=1
  16. 160 fori=1tog
  17. 170 print" bitte geben sie die";i;"[157]. farbe (0-3) an!"
  18. 180 get b$ : if b$<"0" or b$>"3" then 180
  19. 190 poke1000+i,val(b$):print" "+b$
  20. 200 print
  21. 210 nexti
  22. 220 rem
  23. 230 rem ****** test auf routine *******
  24. 240 rem
  25. 250 for i=0 to 10
  26. 260 read a
  27. 270 b=peek(24576+i)
  28. 280 if b<>a then 310
  29. 290 next i
  30. 300 goto 440
  31. 310 restore
  32. 320 rem
  33. 330 rem ****** poken der routine ******
  34. 340 rem
  35. 350 print chr$(147)
  36. 360 print tab(13) "bitte warten"
  37. 370 for i=0 to 825
  38. 380 read a
  39. 390 c=c+a
  40. 400 poke 24576+i,a
  41. 410 next i
  42. 420 if c<>87544 then print " fehlerhafte daten !!!" : end
  43. 440 rem
  44. 450 rem ***** eingabe der adresse *****
  45. 460 rem
  46. 470 print chr$(147)
  47. 480 print " bitte geben sie die startadresse der "
  48. 490 print
  49. 500 input " grafik ein! ";a
  50. 510 b=int(a/256)
  51. 520 poke 24647,b : poke 24640,a-b*256
  52. 530 rem
  53. 540 rem ***** starten der routine *****
  54. 550 rem
  55. 560 sys 6*4096
  56. 570 print chr$(147)
  57. 580 rem
  58. 590 rem ****** ggf. wiederholung ******
  59. 600 rem
  60. 610 print " wollen sie noch eine kopie (j/n) ?"
  61. 620 get a$ : if a$="" then 620
  62. 630 if a$<>"j" then end
  63. 640 print
  64. 650 print " mit denselben parametern (j/n) ?"
  65. 660 get a$ : if a$="" then 660
  66. 670 if a$<>"j" then run
  67. 680 goto 560
  68. 690 rem
  69. 700 rem ********** die daten **********
  70. 710 rem
  71. 720 data 162,0,142,14,220,120,134,183,232,134,184,134,185,162,6,134,186,32,192
  72. 730 data 255,162,2,134,184,134,185,162,0,134,183,162,6,134,186,32,192,255,162
  73. 740 data 0,142,64,3,142,65,3,142,67,3,142,70,3,142,71,3,142,72,3,142,73,3,142
  74. 750 data 76,3,162,0,134,247,142,148,97,162,224,134,248,142,152,97,162,1,142
  75. 760 data 75,3,162,208,142,163,96,142,215,96,162,2,32,201,255,173,233,3,24,105
  76. 770 data 48,32,210,255,169,13,32,210,255,32,204,255,169,52,133,1,160,0,177,247
  77. 780 data 162,55,134,1,72,24,165,247,105,8,144,2,230,248,133,247,173,232,3,240
  78. 790 data 56,104,162,0,142,74,3,10,46,74,3,10,46,74,3,72,170,174,74,3,236,75
  79. 800 data 3,208,3,32,0,98,238,73,3,238,65,3,208,3,238,64,3,238,65,3,208,3,238
  80. 810 data 64,3,173,73,3,201,4,208,203,76,238,96,104,162,0,142,74,3,24,10,46,74
  81. 820 data 3,72,173,74,3,205,75,3,208,3,32,0,98,238,73,3,238,65,3,208,3,238,64
  82. 830 data 3,173,73,3,201,8,208,215,162,0,142,73,3,104,238,72,3,173,72,3,201,40
  83. 840 data 176,3,76,112,96,173,76,3,240,3,32,0,98,238,67,3,173,78,3,141,65,3,173
  84. 850 data 77,3,141,64,3,32,0,98,162,0,142,72,3,142,64,3,142,65,3,142,76,3,169
  85. 860 data 208,141,163,96,141,215,96,198,248,165,247,56,233,63,176,2,198,248,133
  86. 870 data 247,238,71,3,173,71,3,201,8,240,3,76,112,96,162,0,142,71,3,230,248
  87. 880 data 165,247,24,105,56,144,2,230,248,133,247,238,70,3,173,70,3,201,25,240
  88. 890 data 3,76,112,96,32,204,255,173,232,3,208,3,76,246,97,238,75,3,173,75,3
  89. 900 data 201,4,240,119,162,0,142,70,3,142,67,3,142,64,3,142,65,3,142,77,3,142
  90. 910 data 78,3,162,0,134,247,162,224,134,248,162,1,32,201,255,162,0,138,72,189
  91. 920 data 231,97,32,210,255,104,170,232,224,9,208,241,162,1,32,201,255,162,0
  92. 930 data 138,72,189,240,97,32,210,255,104,170,232,224,6,208,241,162,2,32,201
  93. 940 data 255,173,75,3,56,233,1,168,185,233,3,24,105,48,32,210,255,169,13,32
  94. 950 data 210,255,32,204,255,76,112,96,77,44,48,44,45,50,48,49,13,77,44,48,44
  95. 960 data 48,13,32,47,243,169,1,141,14,220,88,96,173,64,3,72,173,65,3,72,173
  96. 970 data 67,3,72,162,0,142,67,3,142,68,3,142,69,3,201,100,144,8,233,100,238
  97. 980 data 67,3,76,23,98,201,10,144,8,233,10,238,68,3,76,35,98,201,1,144,8,233
  98. 990 data 1,238,69,3,76,47,98,173,65,3,174,64,3,240,17,162,2,142,64,3,162,5,142
  99. 1000 data 65,3,232,142,66,3,76,95,98,162,0,142,64,3,142,65,3,142,66,3,201,100
  100. 1010 data 144,8,238,64,3,233,100,76,95,98,201,10,144,8,238,65,3,233,10,76,107
  101. 1020 data 98,201,1,144,8,238,66,3,233,1,76,119,98,173,65,3,24,105,8,141,65,3
  102. 1030 data 173,66,3,201,10,144,8,233,10,141,66,3,238,65,3,173,65,3,201,10,144
  103. 1040 data 11,233,10,141,65,3,238,64,3,76,155,98,162,1,32,201,255,173,76,3,240
  104. 1050 data 8,169,68,32,210,255,76,196,98,169,77,32,210,255,169,44,32,210,255,173
  105. 1060 data 64,3,24,105,48,32,210,255,173,65,3,24,105,48,32,210,255,173,66,3,24
  106. 1070 data 105,48,32,210,255,169,44,32,210,255,169,45,32,210,255,173,67,3,24,105
  107. 1080 data 48,32,210,255,173,68,3,24,105,48,32,210,255,173,69,3,24,105,48,32,210
  108. 1090 data 255,169,13,32,210,255,104,141,67,3,104,141,65,3,104,141,64,3,173,163
  109. 1100 data 96,73,32,141,163,96,141,215,96,173,76,3,73,1,141,76,3,173,65,3,141
  110. 1110 data 78,3,173,64,3,141,77,3,96
  111.